(FILECREATED "15-MAY-75 18:50:13" PUZ.;2 2768   

     changes to:  SOLVE1 BEST-WD EVALUATE PUZCOMS V3 SOLVE GLOBALVARS

     previous date: "15-MAY-75 18:32:49" PUZ.;1)


  (LISPXPRINT (QUOTE PUZCOMS)
	      T T)
  (RPAQQ PUZCOMS
	 ((FNS SOLVE SOLVE1 BEST-WD EVALUATE)
	  GLOBALVARS KEYS LLENS SUM V1 V2 V3 V4 V5 V6 V7 V8 W LETS V 
	  WVAL LVALUES))
(DEFINEQ

(SOLVE
  [LAMBDA NIL
    (SETQ LVAL (HARRAY 200))
    [MAP2C LETS LVALUES (FUNCTION (LAMBDA (L LV)
	       (PUTHASH L LV LVAL]
    [FOR I FROM 1 TO 8
       DO (PROGN (SETQ W (PACK (LIST (QUOTE W)
				     I)))
		 (SET W (HARRAY 500))
		 [MAPC LETS (FUNCTION (LAMBDA (LETTER)
			   (PUTHASH LETTER (LIST 0)
				    (EVAL W]
		 (SETQ V (PACK (LIST (QUOTE V)
				     I)))
		 (MAPC (EVAL V)
		       (FUNCTION (LAMBDA (WORD)
			   (SETQ FIRST-LET (CAR (UNPACK WORD)))
			   (EVALUATE WORD)
			   (COND
			     ([IGREATERP WVAL
					 (CAR (GETHASH FIRST-LET
						       (EVAL W]
			       (PUTHASH FIRST-LET (LIST WVAL WORD)
					(EVAL W]
    (MAPC KEYS (QUOTE SOLVE1])

(SOLVE1
  [LAMBDA (KEY)
    (SETQ SUM 0)
    (MAP2C (UNPACK KEY)
	   LLENS
	   (QUOTE BEST-WD))
    (TERPRI)
    (PRINT SUM)
    (TERPRI)
    (TERPRI) SUM])

(BEST-WD
  [LAMBDA (LET LEN)
    (SETQ
       SUM
	(IPLUS
	   SUM (CAR (PRINT (GETHASH LET
				    (EVAL (PACK (LIST (QUOTE W)
						      LEN])

(EVALUATE
  [LAMBDA (WORD)
    (SETQ WVAL 0)
    (MAPC (UNPACK WORD)
	  (FUNCTION (LAMBDA (L)
	      (SETQ WVAL (IPLUS WVAL (GETHASH L LVAL])
)
  (RPAQQ GLOBALVARS
	 (KEYS LVALUES LLENS VOCAB SUM W1 W2 W3 W4 W5 W6 W7 W8 V1 V2 V3 
	       V4 V5 V6 V7 V8 W V LETS WVAL LVAL FIRST-LET))
  (RPAQQ KEYS (BOASTFUL DAYBREAK PROCLAIM))
  (RPAQQ LLENS (3 5 6 4 4 6 5 3))
  (RPAQQ SUM 937)
  (RPAQQ V1 NIL)
  (RPAQQ V2 NIL)
  (RPAQQ V3
	 (BAN BEG BOA BUS DAY DEW DIE DRY KEG KEY KID KIT LAC LEA LIT 
	      LOX MAW MET MOW MUG PAY PER PIN POT))
  (RPAQQ V4
	 (BAIL BEET BILK BLOC CARP CHAM CODA CRAB LAPP LEFT LIMN LUST 
	       RAJA RIEL ROSY RUNE SERA SPUN STOW SUCK TABU THAI TINY 
	       TORE))
  (RPAQQ V5
	 (AGLOW APPLE ASTIR AUGER AVIAN AWOKE AXIAL AZTEC IDIOT IMPLY 
		INURN IONIC OBESE OFFAL OLIVE OTHER RANGY RECAP ROBIN 
		RUNNY UDDER UMBEL UNTIE UPEND))
  (RPAQQ V6
	 (AGLEAM AMIDST ANOINT APOGEE ARRANT ASTHMA ATRIAL AVOWAL 
		 ECZEMA EMBODY EUREKA EXODUS FABRIC FEZZES FLESHY 
		 FORUMS OAFISH OBTUSE OCULAR ONRUSH YAMMER YEASTY 
		 YELLOW YOGURT))
  (RPAQQ V7 NIL)
  (RPAQQ V8 NIL)
  (RPAQQ W W8)
  (RPAQQ LETS
	 (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z))
  (RPAQQ V V8)
  (RPAQQ WVAL 141)
  (RPAQQ LVALUES
	 (20 39 5 33 18 26 40 6 38 23 16 30 7 27 14 34 8 24 12 29 9 37 
	     21 13 25 10))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (364 1544 (SOLVE 376 . 1067) (SOLVE1 1071 . 1236) (BEST-WD
1240 . 1391) (EVALUATE 1395 . 1541)))))
STOP